Shareware Extravaganza - Disc 4/Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso/cad/grperf.zip/GRAPH01.LSP

Text File | 1990-12-03 | 3KB | 2 lines

(DEFUN Q?J()(GRTEXT -1"Test Summary")(GRTEXT -2"GRPERF V1.1"))((LAMBDA(/ Ql#)(SETVAR"cmdecho"0)(SETVAR"blipmode"0)(SETVAR"highlight"0)(SETVAR"ucsicon"0)(SETVAR"expert"4)(COND((SETQ Ql#(SSGET"x"))(COMMAND".erase"Ql#"")))(COMMAND".layer""m""rule""s""rule""off""*"""".insert"(STRCAT"*"Q@#)(GETVAR"viewctr")1.0"")(Q?J)))((LAMBDA(/ Q&#)(SETQ Q1#(CDR(ASSOC 10(ENTGET(SSNAME(SSGET"x"(quote ((8 . "EXTMIN"))))0)))))(SETQ Q##(CDR(ASSOC 10(ENTGET(SSNAME(SSGET"x"(quote ((8 . "EXTMAX"))))0)))))(COMMAND".zoom""window"Q1# Q##)(SETQ Q&#(OPEN"$summary.dat""r")Q0# NIL)(WHILE(SETQ Q?Q(READ-LINE Q&#))(COND((MEMBER(SUBSTR Q?Q 1 1)(quote (""" "))))(T(SETQ Q0#(APPEND Q0#(LIST(READ Q?Q)))))))(SETQ Q$@(MAPCAR(quote CADR)Q0#)Q0@(MAPCAR(quote CAR)Q0#))(SETQ Q$# NIL)(SETQ QO#(APPLY(quote APPEND)(MAPCAR(quote (LAMBDA(Q%)(APPEND Q%(LIST(CAR(SETQ Q$#(CONS(Q?@ Q%)Q$#)))))))(LIST Q$@ Q0@))))(SETQ Q|#(Q?1 QO#))(SETQ Q%#(SSGET"x"(quote ((0 . "POINT")(8 . "CPOINTS")))))(SETQ QL1(MAPCAR(quote (LAMBDA(Q%)(CADR(ASSOC 10(ENTGET Q%)))))(MAPCAR(quote (LAMBDA(Q%)(SSNAME Q%# Q%)))(quote (0 1)))))(SETQ Q?0(Q%& QL1))(SETQ Q&1(FIX(APPLY(quote MIN)QO#)))(SETQ Q11(/ Q?0 Q|#))(PRINC"\n  Generating graph\r")))((LAMBDA(/ Qj0 Q%Q)(COND((> 10.0 Q|#)(SETQ Q@0(* Q11(SETQ QQ0 1)))(SETQ Ql0 0)(SETQ Q&0(1+(FIX Q|#))))(T(SETQ Q@0(* Q11(SETQ QQ0(/ Q|# 10.0))))(SETQ Ql0 1)(SETQ Q&0(1+(FIX(/ Q?0 Q@0))))))(SETVAR"attreq"0)(COMMAND"insert""rule"(Q#Q 10(ENTGET(SSNAME Q%# 1)))1.0"""""array"(ENTLAST)"""r""1"Q&0 Q@0)(SETQ Qj0(SSLENGTH(SETQ Q10(SSGET"x"(quote ((2 . "rule")))))))(SETQ Q#0(- Q&1 QQ0))(WHILE(SETQ Q%Q(SSNAME Q10(SETQ Qj0(1- Qj0))))(ENTMOD(QO1(LIST(CONS 1(RTOS(SETQ Q#0(+ Q#0 QQ0))2 Ql0)))(ENTGET(ENTNEXT Q%Q))))(ENTUPD Q%Q)(QL&))))((LAMBDA(/ Q00 Q%L Q$0)(SETQ Q00(SSGET"x"(quote ((2 . "TITLE"))))Q$0(ENTGET(ENTNEXT(SSNAME Q00 0))))(ENTMOD(QO1(LIST(CONS 1"Test Summary"))Q$0))(ENTUPD(SSNAME Q00 0))(SETQ Q%L(SSGET"x"(quote ((2 . "TESTHARD"))))Q$0(ENTGET(ENTNEXT(SSNAME Q%L 0))))(ENTMOD(QO1(LIST(CONS 1 QLQ))Q$0))(ENTUPD(SSNAME Q%L 0))))((LAMBDA(/ Q$Q)(MAPCAR(quote (LAMBDA(Q% Q?L / Q$Q)(QL&)(SETQ Q$Q(SSGET"x"(LIST(quote (0 . "SOLID"))(CONS 8 Q%))))(SETQ Q%Q(SSNAME Q$Q 0))(Q#1 Q%Q Q?L)(SETQ Q$Q(SSGET"x"(LIST(quote (0 . "TEXT"))(CONS 8 Q%))))(ENTMOD(QO1(LIST(CONS 1(RTOS Q?L 2 2)))(ENTGET(SSNAME Q$Q 0))))))Q|1 QO#)(COMMAND".copy"(SSGET"x"(quote ((0 . "SOLID"))))"""0,0"""".erase""p"""".layer""on""*"""".save""summary")(Q?J)(PRINC(STRCAT"\nGRPERF Graphics Performance Index: "(RTOS(APPLY(quote /)(REVERSE Q$#))2 1)" (25 Mhz. 386/VGA = 1.0)."))(PRINC)))